home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / jpi / imprint.frm < prev    next >
Text File  |  1998-01-05  |  3KB  |  132 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   4335
  5.    ClientLeft      =   2070
  6.    ClientTop       =   2085
  7.    ClientWidth     =   7080
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   4335
  10.    ScaleWidth      =   7080
  11.    Begin VB.TextBox Text2 
  12.       Height          =   285
  13.       Left            =   4320
  14.       TabIndex        =   2
  15.       Text            =   "Text2"
  16.       Top             =   2040
  17.       Width           =   2655
  18.    End
  19.    Begin VB.ListBox List1 
  20.       Height          =   1815
  21.       Left            =   4320
  22.       TabIndex        =   1
  23.       Top             =   120
  24.       Width           =   2655
  25.    End
  26.    Begin VB.PictureBox Picture1 
  27.       Height          =   4095
  28.       Left            =   120
  29.       ScaleHeight     =   269
  30.       ScaleMode       =   3  'Pixel
  31.       ScaleWidth      =   269
  32.       TabIndex        =   0
  33.       Top             =   120
  34.       Width           =   4095
  35.    End
  36. End
  37. Attribute VB_Name = "Form1"
  38. Attribute VB_GlobalNameSpace = False
  39. Attribute VB_Creatable = False
  40. Attribute VB_PredeclaredId = True
  41. Attribute VB_Exposed = False
  42. Private Const Msg = "ION FORMAT VERSION: 1.0"
  43. Private Sub Form_Load()
  44. Call LoadStuff
  45. Call UpdateList
  46. List1.ListIndex = 0
  47. End Sub
  48. Sub LoadStuff()
  49. On Error GoTo Errr:
  50. Open "ObjectImprints.Dat" For Input As #1
  51. Line Input #1, a$
  52. Do
  53.   Line Input #1, a$
  54.   If a$ = "[ENDOFFILE]" Then Exit Do
  55.   If a$ = "[OBJIMPRINT]" Then
  56.     Currimp = Currimp + 1
  57.     Line Input #1, a$
  58.     Temps(Currimp).Name = a$
  59.     For X = 1 To 10
  60.       For Y = 1 To 10
  61.         Line Input #1, a$
  62.         Temps(Currimp).TemplateArray(X, Y) = Val(a$)
  63.       Next Y
  64.     Next X
  65.   End If
  66. Loop
  67. Errr:
  68. Close #1
  69. End Sub
  70. Sub SaveStuff()
  71. Open "ObjectImprints.Dat" For Output As #1
  72. Print #1, Msg
  73. For i = 1 To 80
  74.   Print #1, "[OBJIMPRINT]"
  75.   Print #1, Temps(i).Name
  76.   For X = 1 To 10
  77.     For Y = 1 To 10
  78.       If Temps(i).TemplateArray(X, Y) = True Then
  79.         Print #1, -1
  80.       Else
  81.         Print #1, 0
  82.       End If
  83.     Next Y
  84.   Next X
  85.   Print #1, "[ENDOBJIMPRINT]"
  86. Next i
  87. Print #1, "[ENDOFFILE]"
  88. Close #1
  89.  
  90. End Sub
  91.  
  92. Private Sub Form_Unload(Cancel As Integer)
  93. Call SaveStuff
  94. End Sub
  95.  
  96. Private Sub List1_Click()
  97. CurrentTemp = List1.ListIndex + 1
  98. Call DrawTemplate(CurrentTemp)
  99. Text2.Text = Temps(CurrentTemp).Name
  100. End Sub
  101.  
  102. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  103. On Error Resume Next
  104. X1 = Int((X / BSize) + 1)
  105. Y1 = Int((Y / BSize) + 1)
  106. If Button = 1 Then
  107.   Temps(CurrentTemp).TemplateArray(X1, Y1) = True
  108.   Call DrawTemplate(CurrentTemp)
  109. ElseIf Button = 2 Then
  110.   Temps(CurrentTemp).TemplateArray(X1, Y1) = False
  111.   Call DrawTemplate(CurrentTemp)
  112. End If
  113. End Sub
  114.  
  115. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  116. On Error Resume Next
  117. X1 = Int((X / BSize) + 0.5)
  118. Y1 = Int((Y / BSize) + 0.5)
  119. If Button = 1 Then
  120.   Temps(CurrentTemp).TemplateArray(X1, Y1) = True
  121.   Call DrawTemplate(CurrentTemp)
  122. ElseIf Button = 2 Then
  123.   Temps(CurrentTemp).TemplateArray(X1, Y1) = False
  124.   Call DrawTemplate(CurrentTemp)
  125. End If
  126. End Sub
  127.  
  128. Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer)
  129. Temps(CurrentTemp).Name = Text2.Text
  130. List1.List(CurrentTemp - 1) = Text2.Text
  131. End Sub
  132.